unit alActions;

interface

uses
  Classes, ActnList;

type

  TReportPrint = class(TAction)
  private
    FReportClassName: string;
  protected
    function GetReportClass: TPersistentClass;
  public
    procedure ExecuteTarget(Target: TObject); override;
    procedure UpdateTarget(Target: TObject); override;
    property ReportClass: TPersistentClass read GetReportClass;
  published
    property ReportClassName: string read FReportClassName write FReportClassName;
  end;

implementation

{ TReportPrint }

procedure TReportPrint.ExecuteTarget(Target: TObject);
begin
  inherited;
end;

function TReportPrint.GetReportClass: TPersistentClass;
begin
  Result := GetClass(ReportClassName);
end;

procedure TReportPrint.UpdateTarget(Target: TObject);
begin
  inherited;
end;

end.
